<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.1</name>
<id>-1</id>
<cardCount>12</cardCount>
<cardID>2908</cardID>
<listID>8822</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><true /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openstackif the optionkey is downthenset the userlevel to 5put "user level is 5"wait 3 sechide the message boxelseset the userlevel to 3end ifcreatemenuglobal deleteput "no" into deleteend openstackon createMenuif there is a menu "Time Master" then exit createMenucreate menu "Time Master"put createMenuItems() into menu "Time Master" with menuMsg createMenuMsgs()set commandChar of menuItem 1 of menu "Time Master" to "H"set commandChar of menuItem 3 of menu "Time Master" to "R"end createMenufunction createMenuItemsreturn "Help" & return & ¬"About Time Master" & return & ¬"REGISTER" & returnend createMenuItemsfunction createMenuMsgsreturn "help" & return & ¬"about" & return & ¬"register"end createMenuMsgson addnewemployeeglobal newemployee, count2, rateadd 1 to count2set the locktext of cd field "employees" to falseput newemployee into line count2 of cd field "employees"set the locktext of cd field "employees" to trueput count2 into cd field "count2"-- add card for new employeego cd "template"domenu "copy card"domenu "paste card"set the name of this card to newemployeeput newemployee into cd field "Name"put rate into cd field "rate"go cd menusort cd field "employees" ascending textend addnewemployeeon calculateglobal timeinsec, timeoutsecget the numberformatset the numberformat to "0.00"put timeoutsec - timeinsec into totalsecput totalsec /60 into totalminput totalmin / 60 into timeadd time to cd field "total time"end calculateon deleteemployeeglobal name, delete, count2put "zzzzzzzzzzzzzzz" into the clicklinego cd namedomenu "delete card"go cd menuput "no" into deletesort cd field "employees" ascending textend deleteemployeeon endofdayglobal total, count, count3, report, employee, rateget the number of lines of cd field "employees"put it into numlinesput 1 into count3repeatgo cd menuput line count3 of cd field "employees" into cardnameif line count3 of cd field "employees" = emptythenadd 1 to count3elseexit repeatend ifend repeatrepeatgo cd cardnameglobal totalput the short name of this card into employeeput line 1 of cd field "total time" into totalput cd field "rate" into rateput "Total Hrs " & total into line count + 1 of cd field "time card"put "--------------------" into line count + 2 of cd field "time card"put empty into cd field "time in"put empty into cd field "time out"put 0 into cd field "total time"go cd reportput employee into line count3 of cd field "employee name"put total into line count3 of cd field "total hours"put rate into line count3 of cd field "rate"put rate * total into line count3 of cd field "labor"add 1 to count3if count3 > numlines then exit repeatend repeat-- tally up the total hoursput 0 into countput 0 into totalhoursput 0 into laborrepeatadd 1 to countif count > count3 then exit repeatadd line count of cd field "total hours" to totalhoursadd line count of cd field "labor" to laborend repeatput "Total " into line count3 + 1 of cd field "employee name"put totalhours into line count3+1 of cd field "total hours"put labor into line count3 + 1 of cd field "labor"end endofdayon dailylaborglobal reportgo cd "template 2"domenu "copy card"domenu "paste card"put the long date into cd field "date"put the short date into reportset the name of this card to reportgo cd "menu"endofdayend dailylaboron helpgo cd "help"end helpon aboutgo cd "about"end abouton registergo cd "register"end registeron passwordglobal passwordgo cd "menu"put cd field "password" into passwordif password = "glokenspiel"thengo cd "menu"end ifif password ≠ cd field "secret" then go cd "time out"end password</script>
